МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА” Кафедра інформаційних систем та мереж Лабораторна робота №7 на тему ПРОЦЕДУРИ ТА ФУНКЦІЇ  Львів-2010 Мета роботи Набуття практичних навиків у роботі з процедурами та функціями в Pascal, особливостями їх оголошення, організації та виклику. Перший рівень Напишіть програму для пошуку максимального елемента матриці А(4,3), де зчитування і виведення матриці організоване з допомогою процедур чи функції. program laba7_1; type matrix = array [1..4,1..3] of integer; procedure readmatrix (var a: matrix); var i,j :integer; begin for i:=1 to 4 do for j:=1 to 3 do readln(a[i,j]); end; procedure writematrix (var a: matrix); var i,j :integer; begin for i:=1 to 4 do begin for j:=1 to 3 do write (a[i,j]:5); writeln ; end; end; var a: matrix; max : integer; i,j : integer; begin readmatrix (a); Max := a[1,1]; for i:=1 to 4 do begin for j:=1 to 3 do if a[i,j] > Max then Max := a[i,j]; end; writematrix (a); writeln (max); readln; end..
 


Другий рівень Напишіть програму для заміни місцями мінімального та максимального елемента масиву В(7). Створіть функції та процедури, які б: - Зчитали масив В; - Елементи масиву В заповнили з допомогою функції Random(х), де х=Номер студента за списком+5; - Замінили місцями максимальний та мінімальний елемент масиву В; - Вивели змінений масив В на екран в рядок; - Вивели змінений масив В на екран в стовпець. program laba7_2; uses crt; const n=7; type mas = array [1..n] of integer; procedure readmas (var b: mas); var i :integer; begin for i:=1 to n do readln(b[i]); end; procedure writemas (var b: mas); var i :integer; begin for i:=1 to n do write (b[i]:5); end; procedure writelnmas (var b: mas); var i :integer; begin writeln; for i:=1 to n do writeln (b[i]); end; procedure change (var b: mas) ; var temp,i,beg,maxi,mini : integer; begin beg:=b[1]; mini:=1; for i:=1 to n do if beg>b[i] then begin beg:=b[i]; mini:=i; end; beg:=b[1]; maxi:=1; for i:=1 to n do if beg<b[i] then begin beg:=b[i]; maxi:=i; end; temp:=b[maxi]; b[maxi]:=b[mini]; b[mini]:=temp; end; procedure randomi (var b:mas); var i: integer; begin for i:=1 to n do b[i]:=random(10); end; var b: mas; begin randomize; clrscr; readmas (b); change (b); writemas (b); randomi (b); writelnmas (b); readln; end.





Висновок: на лабораторній роботі набув практичних навиків з процедурами та функціями в Pascal, особливостями їх оголошення, організації та виклику.